Filename: /text/sbasic/shared/03050100.xhp

Erl Function [Runtime]
Erl 関数 [実行時](hd_id3157896.1)

Returns the line number where an error occurred during program execution.
プログラム実行時にエラーの発生した行番号を返します。(par_id3153394.2)

Syntax:
構文:(hd_id3147574.3)

Erl
Erl(par_id3146795.4)

Return value:
戻り値:(hd_id3147265.5)

Integer
整数(par_id3154924.6)

Parameters:
パラメータ:(hd_id3150792.7)

The Erl function only returns a line number, and not a line label. Erl 関数が返すのは行番号だけであり、行ラベルは返しません。(par_id3153771.8)

Example:
例:(hd_id3146921.9)

sub ExampleError
sub ExampleError(par_id3146975.10)

on error goto ErrorHandler REM Set up error handler
on error goto ErrorHandler REM エラーハンドラの設定(par_id3150010.11)

Dim iVar as Integer
Dim iVar as Integer(par_id3155308.12)

Dim sVar As String
Dim sVar As String(par_id3149482.13)

REM Error caused by non-existent file
REM 存在しないファイルにアクセスするとエラーが発生(par_id3153188.14)

iVar = Freefile
iVar = Freefile(par_id3159155.15)

Open "\file9879.txt" for Input as #iVar
Open "\file9879.txt" for Input as #iVar(par_id3146120.16)

Line Input #iVar, sVar
Line Input #iVar, sVar(par_id3147349.17)

Close #iVar
Close #iVar(par_id3151073.18)

exit sub
exit sub(par_id3148456.19)

ErrorHandler:
ErrorHandler:(par_id3147394.20)

MsgBox "Error " & err & ": " & error$ + chr(13) + "In line : " + Erl + chr(13) + Now , 16 ,"An error occurred"
MsgBox "Error " & err & ": " & error$ + chr(13) + "In line : Erl + chr(13) + Now , 16 ,"に、エラーが発生した。"(par_id3155416.21)

end sub
end sub(par_id3153878.22)